object dm: Tdm
  OldCreateOrder = False
  Left = 375
  Top = 142
  Height = 240
  Width = 475
  object banco: TIBDatabase
    Connected = True
    DatabaseName = 
      'C:\Documents and Settings\Usuario\Desktop\ProjetoEstagio\Banco\B' +
      'ANCO.FDB'
    Params.Strings = (
      'user_name=SYSDBA'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = Transaction
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 16
    Top = 8
  end
  object Transaction: TIBTransaction
    Active = True
    DefaultDatabase = banco
    DefaultAction = TACommitRetaining
    AutoStopAction = saNone
    Left = 64
    Top = 8
  end
  object tblcidade: TIBDataSet
    Database = banco
    Transaction = Transaction
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from CIDADE'
      'where'
      '  CID_CODIGO = :OLD_CID_CODIGO')
    InsertSQL.Strings = (
      'insert into CIDADE'
      '  (CID_CODIGO, CID_NOME, CID_UF)'
      'values'
      '  (:CID_CODIGO, :CID_NOME, :CID_UF)')
    RefreshSQL.Strings = (
      'Select '
      '  CID_CODIGO,'
      '  CID_NOME,'
      '  CID_UF'
      'from CIDADE '
      'where'
      '  CID_CODIGO = :CID_CODIGO')
    SelectSQL.Strings = (
      'select * from CIDADE'
      'order by CID_NOME')
    ModifySQL.Strings = (
      'update CIDADE'
      'set'
      '  CID_CODIGO = :CID_CODIGO,'
      '  CID_NOME = :CID_NOME,'
      '  CID_UF = :CID_UF'
      'where'
      '  CID_CODIGO = :OLD_CID_CODIGO')
    GeneratorField.Field = 'CID_CODIGO'
    GeneratorField.Generator = 'GEN_CIDADE_ID'
    Left = 16
    Top = 64
    object tblcidadeCID_CODIGO: TIntegerField
      FieldName = 'CID_CODIGO'
      Origin = 'CIDADE.CID_CODIGO'
      Required = True
    end
    object tblcidadeCID_NOME: TIBStringField
      FieldName = 'CID_NOME'
      Origin = 'CIDADE.CID_NOME'
      Required = True
      Size = 50
    end
    object tblcidadeCID_UF: TIBStringField
      FieldName = 'CID_UF'
      Origin = 'CIDADE.CID_UF'
      Required = True
      FixedChar = True
      Size = 2
    end
  end
  object tblaux: TIBDataSet
    Database = banco
    Transaction = Transaction
    BufferChunks = 1000
    CachedUpdates = False
    Left = 112
    Top = 8
  end
  object tblCliente: TIBDataSet
    Database = banco
    Transaction = Transaction
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from CLIENTE'
      'where'
      '  CLI_CODIGO = :OLD_CLI_CODIGO and'
      '  CID_CODIGO = :OLD_CID_CODIGO')
    InsertSQL.Strings = (
      'insert into CLIENTE'
      
        '  (CLI_CODIGO, CID_CODIGO, CLI_NOME, CLI_CPF_CNPJ, CLI_RUA, CLI_' +
        'BAIRRO, '
      
        '   CLI_NUMERO, CLI_CEP, CLI_OBS, CLI_RG_INSC, CLI_DATACAD, CLI_T' +
        'ELEFONE, '
      '   CLI_SITUACAO, CLI_EMAIL, CLI_TIPO)'
      'values'
      
        '  (:CLI_CODIGO, :CID_CODIGO, :CLI_NOME, :CLI_CPF_CNPJ, :CLI_RUA,' +
        ' :CLI_BAIRRO, '
      
        '   :CLI_NUMERO, :CLI_CEP, :CLI_OBS, :CLI_RG_INSC, :CLI_DATACAD, ' +
        ':CLI_TELEFONE, '
      '   :CLI_SITUACAO, :CLI_EMAIL, :CLI_TIPO)')
    RefreshSQL.Strings = (
      'Select '
      '  CLI_CODIGO,'
      '  CID_CODIGO,'
      '  CLI_NOME,'
      '  CLI_CPF_CNPJ,'
      '  CLI_RUA,'
      '  CLI_BAIRRO,'
      '  CLI_NUMERO,'
      '  CLI_CEP,'
      '  CLI_OBS,'
      '  CLI_RG_INSC,'
      '  CLI_DATACAD,'
      '  CLI_TELEFONE,'
      '  CLI_SITUACAO,'
      '  CLI_EMAIL,'
      '  CLI_TIPO'
      'from CLIENTE '
      'where'
      '  CLI_CODIGO = :CLI_CODIGO and'
      '  CID_CODIGO = :CID_CODIGO')
    SelectSQL.Strings = (
      'SELECT cliente.*, cidade.cid_nome '
      'FROM cliente'
      'INNER JOIN cidade ON cliente.cid_codigo = cidade.cid_codigo'
      'order by cli_nome')
    ModifySQL.Strings = (
      'update CLIENTE'
      'set'
      '  CLI_CODIGO = :CLI_CODIGO,'
      '  CID_CODIGO = :CID_CODIGO,'
      '  CLI_NOME = :CLI_NOME,'
      '  CLI_CPF_CNPJ = :CLI_CPF_CNPJ,'
      '  CLI_RUA = :CLI_RUA,'
      '  CLI_BAIRRO = :CLI_BAIRRO,'
      '  CLI_NUMERO = :CLI_NUMERO,'
      '  CLI_CEP = :CLI_CEP,'
      '  CLI_OBS = :CLI_OBS,'
      '  CLI_RG_INSC = :CLI_RG_INSC,'
      '  CLI_DATACAD = :CLI_DATACAD,'
      '  CLI_TELEFONE = :CLI_TELEFONE,'
      '  CLI_SITUACAO = :CLI_SITUACAO,'
      '  CLI_EMAIL = :CLI_EMAIL,'
      '  CLI_TIPO = :CLI_TIPO'
      'where'
      '  CLI_CODIGO = :OLD_CLI_CODIGO and'
      '  CID_CODIGO = :OLD_CID_CODIGO')
    GeneratorField.Field = 'CLI_CODIGO'
    GeneratorField.Generator = 'GEN_CLIENTE_ID'
    Left = 64
    Top = 64
    object tblClienteCLI_CODIGO: TIntegerField
      FieldName = 'CLI_CODIGO'
      Origin = 'CLIENTE.CLI_CODIGO'
      Required = True
    end
    object tblClienteCID_CODIGO: TIntegerField
      FieldName = 'CID_CODIGO'
      Origin = 'CLIENTE.CID_CODIGO'
      Required = True
    end
    object tblClienteCLI_NOME: TIBStringField
      FieldName = 'CLI_NOME'
      Origin = 'CLIENTE.CLI_NOME'
      Required = True
      Size = 150
    end
    object tblClienteCLI_CPF_CNPJ: TIBStringField
      FieldName = 'CLI_CPF_CNPJ'
      Origin = 'CLIENTE.CLI_CPF_CNPJ'
      Required = True
    end
    object tblClienteCLI_RUA: TIBStringField
      FieldName = 'CLI_RUA'
      Origin = 'CLIENTE.CLI_RUA'
      Required = True
      Size = 80
    end
    object tblClienteCLI_BAIRRO: TIBStringField
      FieldName = 'CLI_BAIRRO'
      Origin = 'CLIENTE.CLI_BAIRRO'
      Required = True
      Size = 80
    end
    object tblClienteCLI_NUMERO: TIBStringField
      FieldName = 'CLI_NUMERO'
      Origin = 'CLIENTE.CLI_NUMERO'
      Required = True
      Size = 10
    end
    object tblClienteCLI_CEP: TIBStringField
      FieldName = 'CLI_CEP'
      Origin = 'CLIENTE.CLI_CEP'
      Size = 9
    end
    object tblClienteCLI_OBS: TIBStringField
      FieldName = 'CLI_OBS'
      Origin = 'CLIENTE.CLI_OBS'
      Size = 200
    end
    object tblClienteCLI_RG_INSC: TIBStringField
      FieldName = 'CLI_RG_INSC'
      Origin = 'CLIENTE.CLI_RG_INSC'
      Size = 25
    end
    object tblClienteCLI_DATACAD: TDateTimeField
      FieldName = 'CLI_DATACAD'
      Origin = 'CLIENTE.CLI_DATACAD'
      Required = True
    end
    object tblClienteCLI_TELEFONE: TIBStringField
      FieldName = 'CLI_TELEFONE'
      Origin = 'CLIENTE.CLI_TELEFONE'
      Size = 14
    end
    object tblClienteCLI_SITUACAO: TIBStringField
      FieldName = 'CLI_SITUACAO'
      Origin = 'CLIENTE.CLI_SITUACAO'
      Size = 10
    end
    object tblClienteCLI_EMAIL: TIBStringField
      FieldName = 'CLI_EMAIL'
      Origin = 'CLIENTE.CLI_EMAIL'
      Size = 100
    end
    object tblClienteCLI_TIPO: TIBStringField
      FieldName = 'CLI_TIPO'
      Origin = 'CLIENTE.CLI_TIPO'
      Required = True
      Size = 8
    end
    object tblClienteCID_NOME: TIBStringField
      FieldName = 'CID_NOME'
      Origin = 'CIDADE.CID_NOME'
      Required = True
      Size = 50
    end
  end
  object tblFornecedor: TIBDataSet
    Database = banco
    Transaction = Transaction
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from FORNECEDOR'
      'where'
      '  FOR_CODIGO = :OLD_FOR_CODIGO and'
      '  CID_CODIGO = :OLD_CID_CODIGO')
    InsertSQL.Strings = (
      'insert into FORNECEDOR'
      
        '  (FOR_CODIGO, CID_CODIGO, FOR_NOMEFANT, FOR_CNPJ, FOR_RAZAOSOCI' +
        'AL, FOR_INSCESTADUAL, '
      
        '   FOR_FONE, FOR_EMAIL, FOR_SITUACAO, FOR_SITE, FOR_OBS, FOR_END' +
        'ERECO, '
      '   FOR_CEP, FOR_DATACAD)'
      'values'
      
        '  (:FOR_CODIGO, :CID_CODIGO, :FOR_NOMEFANT, :FOR_CNPJ, :FOR_RAZA' +
        'OSOCIAL, '
      
        '   :FOR_INSCESTADUAL, :FOR_FONE, :FOR_EMAIL, :FOR_SITUACAO, :FOR' +
        '_SITE, '
      '   :FOR_OBS, :FOR_ENDERECO, :FOR_CEP, :FOR_DATACAD)')
    RefreshSQL.Strings = (
      'Select '
      '  FOR_CODIGO,'
      '  CID_CODIGO,'
      '  FOR_NOMEFANT,'
      '  FOR_CNPJ,'
      '  FOR_RAZAOSOCIAL,'
      '  FOR_INSCESTADUAL,'
      '  FOR_FONE,'
      '  FOR_EMAIL,'
      '  FOR_SITUACAO,'
      '  FOR_SITE,'
      '  FOR_OBS,'
      '  FOR_ENDERECO,'
      '  FOR_CEP,'
      '  FOR_DATACAD'
      'from FORNECEDOR '
      'where'
      '  FOR_CODIGO = :FOR_CODIGO and'
      '  CID_CODIGO = :CID_CODIGO')
    SelectSQL.Strings = (
      'SELECT fornecedor.*, cidade.cid_nome '
      'FROM fornecedor'
      'INNER JOIN cidade ON fornecedor.cid_codigo = cidade.cid_codigo'
      'order by FOR_NOMEFANT')
    ModifySQL.Strings = (
      'update FORNECEDOR'
      'set'
      '  FOR_CODIGO = :FOR_CODIGO,'
      '  CID_CODIGO = :CID_CODIGO,'
      '  FOR_NOMEFANT = :FOR_NOMEFANT,'
      '  FOR_CNPJ = :FOR_CNPJ,'
      '  FOR_RAZAOSOCIAL = :FOR_RAZAOSOCIAL,'
      '  FOR_INSCESTADUAL = :FOR_INSCESTADUAL,'
      '  FOR_FONE = :FOR_FONE,'
      '  FOR_EMAIL = :FOR_EMAIL,'
      '  FOR_SITUACAO = :FOR_SITUACAO,'
      '  FOR_SITE = :FOR_SITE,'
      '  FOR_OBS = :FOR_OBS,'
      '  FOR_ENDERECO = :FOR_ENDERECO,'
      '  FOR_CEP = :FOR_CEP,'
      '  FOR_DATACAD = :FOR_DATACAD'
      'where'
      '  FOR_CODIGO = :OLD_FOR_CODIGO and'
      '  CID_CODIGO = :OLD_CID_CODIGO')
    GeneratorField.Field = 'FOR_CODIGO'
    GeneratorField.Generator = 'GEN_FORNECEDOR_ID'
    Left = 120
    Top = 64
    object tblFornecedorFOR_CODIGO: TIntegerField
      FieldName = 'FOR_CODIGO'
      Origin = 'FORNECEDOR.FOR_CODIGO'
      Required = True
    end
    object tblFornecedorCID_CODIGO: TIntegerField
      FieldName = 'CID_CODIGO'
      Origin = 'FORNECEDOR.CID_CODIGO'
      Required = True
    end
    object tblFornecedorFOR_NOMEFANT: TIBStringField
      FieldName = 'FOR_NOMEFANT'
      Origin = 'FORNECEDOR.FOR_NOMEFANT'
      Required = True
      Size = 150
    end
    object tblFornecedorFOR_CNPJ: TIBStringField
      FieldName = 'FOR_CNPJ'
      Origin = 'FORNECEDOR.FOR_CNPJ'
      Required = True
      Size = 14
    end
    object tblFornecedorFOR_RAZAOSOCIAL: TIBStringField
      FieldName = 'FOR_RAZAOSOCIAL'
      Origin = 'FORNECEDOR.FOR_RAZAOSOCIAL'
      Size = 150
    end
    object tblFornecedorFOR_INSCESTADUAL: TIBStringField
      FieldName = 'FOR_INSCESTADUAL'
      Origin = 'FORNECEDOR.FOR_INSCESTADUAL'
      Size = 12
    end
    object tblFornecedorFOR_FONE: TIBStringField
      FieldName = 'FOR_FONE'
      Origin = 'FORNECEDOR.FOR_FONE'
      Required = True
      Size = 14
    end
    object tblFornecedorFOR_EMAIL: TIBStringField
      FieldName = 'FOR_EMAIL'
      Origin = 'FORNECEDOR.FOR_EMAIL'
      Size = 150
    end
    object tblFornecedorFOR_SITUACAO: TIBStringField
      FieldName = 'FOR_SITUACAO'
      Origin = 'FORNECEDOR.FOR_SITUACAO'
      Required = True
      Size = 10
    end
    object tblFornecedorFOR_SITE: TIBStringField
      FieldName = 'FOR_SITE'
      Origin = 'FORNECEDOR.FOR_SITE'
      Size = 100
    end
    object tblFornecedorFOR_OBS: TIBStringField
      FieldName = 'FOR_OBS'
      Origin = 'FORNECEDOR.FOR_OBS'
      Size = 200
    end
    object tblFornecedorFOR_ENDERECO: TIBStringField
      FieldName = 'FOR_ENDERECO'
      Origin = 'FORNECEDOR.FOR_ENDERECO'
      Size = 200
    end
    object tblFornecedorFOR_CEP: TIBStringField
      FieldName = 'FOR_CEP'
      Origin = 'FORNECEDOR.FOR_CEP'
      Size = 9
    end
    object tblFornecedorFOR_DATACAD: TDateTimeField
      FieldName = 'FOR_DATACAD'
      Origin = 'FORNECEDOR.FOR_DATACAD'
    end
    object tblFornecedorCID_NOME: TIBStringField
      FieldName = 'CID_NOME'
      Origin = 'CIDADE.CID_NOME'
      Required = True
      Size = 50
    end
  end
  object tblMarca: TIBDataSet
    Database = banco
    Transaction = Transaction
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from MARCA'
      'where'
      '  MAR_CODIGO = :OLD_MAR_CODIGO')
    InsertSQL.Strings = (
      'insert into MARCA'
      '  (MAR_CODIGO, MAR_DESCRICAO)'
      'values'
      '  (:MAR_CODIGO, :MAR_DESCRICAO)')
    RefreshSQL.Strings = (
      'Select '
      '  MAR_CODIGO,'
      '  MAR_DESCRICAO'
      'from MARCA '
      'where'
      '  MAR_CODIGO = :MAR_CODIGO')
    SelectSQL.Strings = (
      'select * from MARCA order by MAR_DESCRICAO')
    ModifySQL.Strings = (
      'update MARCA'
      'set'
      '  MAR_CODIGO = :MAR_CODIGO,'
      '  MAR_DESCRICAO = :MAR_DESCRICAO'
      'where'
      '  MAR_CODIGO = :OLD_MAR_CODIGO')
    GeneratorField.Field = 'MAR_CODIGO'
    GeneratorField.Generator = 'GEN_MARCA_ID'
    Left = 176
    Top = 64
    object tblMarcaMAR_CODIGO: TIntegerField
      FieldName = 'MAR_CODIGO'
      Origin = 'MARCA.MAR_CODIGO'
      Required = True
    end
    object tblMarcaMAR_DESCRICAO: TIBStringField
      FieldName = 'MAR_DESCRICAO'
      Origin = 'MARCA.MAR_DESCRICAO'
      Required = True
      Size = 30
    end
  end
  object tblProduto: TIBDataSet
    Database = banco
    Transaction = Transaction
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from PRODUTO'
      'where'
      '  PRO_CODIGO = :OLD_PRO_CODIGO')
    InsertSQL.Strings = (
      'insert into PRODUTO'
      
        '  (PRO_CODIGO, MAR_CODIGO, CODGRUPO, PRO_DESCRICAO, PRO_VALORCOM' +
        'PRA, PRO_VALORVENDA, '
      '   PRO_UNIDADEMEDIDA, PRO_ESTOQUE, PRO_OBS)'
      'values'
      
        '  (:PRO_CODIGO, :MAR_CODIGO, :CODGRUPO, :PRO_DESCRICAO, :PRO_VAL' +
        'ORCOMPRA, '
      '   :PRO_VALORVENDA, :PRO_UNIDADEMEDIDA, :PRO_ESTOQUE, :PRO_OBS)')
    RefreshSQL.Strings = (
      'Select '
      '  PRO_CODIGO,'
      '  MAR_CODIGO,'
      '  CODGRUPO,'
      '  PRO_DESCRICAO,'
      '  PRO_VALORCOMPRA,'
      '  PRO_VALORVENDA,'
      '  PRO_UNIDADEMEDIDA,'
      '  PRO_ESTOQUE,'
      '  PRO_OBS'
      'from PRODUTO '
      'where'
      '  PRO_CODIGO = :PRO_CODIGO')
    SelectSQL.Strings = (
      'select * from PRODUTO  order by PRO_DESCRICAO')
    ModifySQL.Strings = (
      'update PRODUTO'
      'set'
      '  PRO_CODIGO = :PRO_CODIGO,'
      '  MAR_CODIGO = :MAR_CODIGO,'
      '  CODGRUPO = :CODGRUPO,'
      '  PRO_DESCRICAO = :PRO_DESCRICAO,'
      '  PRO_VALORCOMPRA = :PRO_VALORCOMPRA,'
      '  PRO_VALORVENDA = :PRO_VALORVENDA,'
      '  PRO_UNIDADEMEDIDA = :PRO_UNIDADEMEDIDA,'
      '  PRO_ESTOQUE = :PRO_ESTOQUE,'
      '  PRO_OBS = :PRO_OBS'
      'where'
      '  PRO_CODIGO = :OLD_PRO_CODIGO')
    GeneratorField.Field = 'PRO_CODIGO'
    GeneratorField.Generator = 'GEN_PRODUTO_ID'
    Left = 224
    Top = 64
  end
  object tblCondicao: TIBDataSet
    Database = banco
    Transaction = Transaction
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from CONDICAOPAGAMENTO'
      'where'
      '  COND_CODIGO = :OLD_COND_CODIGO')
    InsertSQL.Strings = (
      'insert into CONDICAOPAGAMENTO'
      '  (COND_CODIGO, DESCRICAO, PARCELA, INTERVALO)'
      'values'
      '  (:COND_CODIGO, :DESCRICAO, :PARCELA, :INTERVALO)')
    RefreshSQL.Strings = (
      'Select '
      '  COND_CODIGO,'
      '  DESCRICAO,'
      '  PARCELA,'
      '  INTERVALO'
      'from CONDICAOPAGAMENTO '
      'where'
      '  COND_CODIGO = :COND_CODIGO')
    SelectSQL.Strings = (
      'select * from CONDICAOPAGAMENTO order by DESCRICAO')
    ModifySQL.Strings = (
      'update CONDICAOPAGAMENTO'
      'set'
      '  COND_CODIGO = :COND_CODIGO,'
      '  DESCRICAO = :DESCRICAO,'
      '  PARCELA = :PARCELA,'
      '  INTERVALO = :INTERVALO'
      'where'
      '  COND_CODIGO = :OLD_COND_CODIGO')
    GeneratorField.Field = 'COND_CODIGO'
    GeneratorField.Generator = 'GEN_CONDICAOPAGAMENTO_ID'
    Left = 336
    Top = 64
    object tblCondicaoCOND_CODIGO: TIntegerField
      FieldName = 'COND_CODIGO'
      Origin = 'CONDICAOPAGAMENTO.COND_CODIGO'
      Required = True
    end
    object tblCondicaoDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'CONDICAOPAGAMENTO.DESCRICAO'
      Size = 40
    end
    object tblCondicaoPARCELA: TIntegerField
      FieldName = 'PARCELA'
      Origin = 'CONDICAOPAGAMENTO.PARCELA'
      Required = True
    end
    object tblCondicaoINTERVALO: TIntegerField
      FieldName = 'INTERVALO'
      Origin = 'CONDICAOPAGAMENTO.INTERVALO'
      Required = True
    end
  end
  object tblUsuario: TIBDataSet
    Database = banco
    Transaction = Transaction
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from USUARIO'
      'where'
      '  USU_CODIGO = :OLD_USU_CODIGO')
    InsertSQL.Strings = (
      'insert into USUARIO'
      '  (USU_CODIGO, USU_LOGIN, USU_SENHA, USU_NIVEL, USU_NOME)'
      'values'
      '  (:USU_CODIGO, :USU_LOGIN, :USU_SENHA, :USU_NIVEL, :USU_NOME)')
    RefreshSQL.Strings = (
      'Select '
      '  USU_CODIGO,'
      '  USU_LOGIN,'
      '  USU_SENHA,'
      '  USU_NIVEL,'
      '  USU_NOME'
      'from USUARIO '
      'where'
      '  USU_CODIGO = :USU_CODIGO')
    SelectSQL.Strings = (
      'select * from USUARIO')
    ModifySQL.Strings = (
      'update USUARIO'
      'set'
      '  USU_CODIGO = :USU_CODIGO,'
      '  USU_LOGIN = :USU_LOGIN,'
      '  USU_SENHA = :USU_SENHA,'
      '  USU_NIVEL = :USU_NIVEL,'
      '  USU_NOME = :USU_NOME'
      'where'
      '  USU_CODIGO = :OLD_USU_CODIGO')
    GeneratorField.Field = 'USU_CODIGO'
    GeneratorField.Generator = 'GEN_USUARIO_ID'
    Left = 16
    Top = 120
    object tblUsuarioUSU_CODIGO: TIntegerField
      FieldName = 'USU_CODIGO'
      Origin = 'USUARIO.USU_CODIGO'
      Required = True
    end
    object tblUsuarioUSU_LOGIN: TIBStringField
      FieldName = 'USU_LOGIN'
      Origin = 'USUARIO.USU_LOGIN'
      Required = True
      Size = 25
    end
    object tblUsuarioUSU_SENHA: TIBStringField
      FieldName = 'USU_SENHA'
      Origin = 'USUARIO.USU_SENHA'
      Required = True
    end
    object tblUsuarioUSU_NIVEL: TIBStringField
      FieldName = 'USU_NIVEL'
      Origin = 'USUARIO.USU_NIVEL'
      Required = True
      Size = 15
    end
    object tblUsuarioUSU_NOME: TIBStringField
      FieldName = 'USU_NOME'
      Origin = 'USUARIO.USU_NOME'
      Required = True
      Size = 50
    end
  end
  object tblGrupo: TIBDataSet
    Database = banco
    Transaction = Transaction
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from GRUPOPRODUTO'
      'where'
      '  CODGRUPO = :OLD_CODGRUPO')
    InsertSQL.Strings = (
      'insert into GRUPOPRODUTO'
      '  (CODGRUPO, DESCRICAO)'
      'values'
      '  (:CODGRUPO, :DESCRICAO)')
    RefreshSQL.Strings = (
      'Select '
      '  CODGRUPO,'
      '  DESCRICAO'
      'from GRUPOPRODUTO '
      'where'
      '  CODGRUPO = :CODGRUPO')
    SelectSQL.Strings = (
      'select * from  GRUPOPRODUTO order by DESCRICAO')
    ModifySQL.Strings = (
      'update GRUPOPRODUTO'
      'set'
      '  CODGRUPO = :CODGRUPO,'
      '  DESCRICAO = :DESCRICAO'
      'where'
      '  CODGRUPO = :OLD_CODGRUPO')
    GeneratorField.Field = 'CODGRUPO'
    GeneratorField.Generator = 'GEN_GRUPOPRODUTO_ID'
    Left = 280
    Top = 64
    object tblGrupoCODGRUPO: TIntegerField
      FieldName = 'CODGRUPO'
      Origin = 'GRUPOPRODUTO.CODGRUPO'
      Required = True
    end
    object tblGrupoDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = 'GRUPOPRODUTO.DESCRICAO'
      Size = 35
    end
  end
end
